5 GOSUB41000
6 D=PEEK(186):IFD<8THEND=8
10 A$="BODY.PKD
20 [153]"STOPLOADA$,D":[153]"RUN"
30 Q[178]08:[151]44,Q:[151]Q[172]256,0
40 [151]198,2:[151]631,13:[151]632,13:[128]
9999 [128]
10000 D[178][194](186):[159]1,D,15,"I0":[160]1:N$[178]"B.BODY TWISTER"
10001 [159]1,D,15,"S0:"[170]N$:[160]1:[148]N$,D:[128]
41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"LOAD"
41002 [151]214,14:[153]
41004 [153][163]1)"LIST                                     "
41005 [129]X[178]1[164]6
41006 [153][163]1)"PRINT#                                     "
41007 [130]
41013 [153][163]1)"POKE                                     "
41020 [129]X[178]1[164]4:[135]A$:[151]214,15[170]X:[153]
41022 [153][163]19[171][195](A$)[173]2)"PRINT#"A$
41024 [130]
41030 T[178]TI[170]60
41031 [139]T[177]TI[167]41031
41032 [153]"":[142]
41050 [131]"PEEK (null)CLOSESTR$ (null)   (null) (null) RIGHT$CLOSE(null) (null)CLOSEVAL (null)
41051 DATA"BY [196]AVE [205]OORMAN
41052 [131]"(C) 2003 BY MID$ & ASC (null)UBLISHING, RIGHT$NC.
41053 DATA"WWW.LOADSTAR.COM